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MISCELLANEOUS NOTES 

As everyone probably noticed, the listing in issue #1 had a few 

errors relating to lacking greater-than and less-than signs. Certain 

lines in the program should be altered. I will use a "@" to represent 

a greater-than sign and a "0" for a less-than sign. Correct as follows: 

210 IP LOC+64 @ -2049 THEN RETURN 
310 IP L0C-1 -3968 THEN RETURN 
410 IF L0C+1 @ -2049 THEN RETURN 
510 IP L0C-64 -3968 THEN RETURN 

Also pertaining to errors, several of you noticed that the correct 
locations for the USR function addresses are not 259 and 260 f but 260 
and 261. These are the numbers given in the finished Sorcerer Technical 
Manual , which is now in print and available for $11.95 from your local 
computer store. 

My thanks to Bob Bachman and his printer in Lansing, Michigan. Now 
I will be able to provide clear, error-free listings. 

CIRCULAfadk 

My original ad in ONJJNE has only drawn about 30 responses so far, 
although they still keep coming in. The August issue of Kilobaud Micro- 
computing has a letter that I sent in; this should generate some re- 
sponse also, My aim is to reach all users, or at least to let them 
be aware of our presence. One easy way of reaching others easily that 
I have "discovered" is to place copies of this newsletter in computer 
stores (with the owners permission, of course). Actually, this helps 
us in more ways than one. Sorcerer owners will be pleased to see that 



The Sorcerer's Apprentice is published by Dave Bristor, 1530 Washtenaw, 
Ann Arbor, MI, 48104. For free copies, send an SASE approximately 
every month and a half. 



yes, some people are communicating ideas, and prospective buyers may 
be more likely to purchase a Sorcerer if they know that an information 
exchange does exist. Hopefully, both the user and buyer will contact 
me, I have given copies to the stores in my area, so how about you? 
You may well just come away from the store knowing more than when you 
walked in (I certainly did), and friends in computer stores never hurt 
anybody. If you think you can use some copies, whether to place in 
a store, for friends or for that other computer club, let me know 
how many you need and I'll get then out to you right away. 

RUMORS AND NEWS ABOUT EXIDY 

Do you still read ON_LINE? Then you probably already know about 
Exidy's latest releases. If not, then you can read about them here. 

Two new ROM PAC's are available- the WORD PROCESSOR and the DEVELOP- 
MENT PAC, and there is a VIDEO/DISK attachment. The Video/Disk unit 
houses a 12** video display using P31 phosphor and having a bandwidth 
of 20 MHz for clear pictures. Also included is a dual mini-floppy 
disk drive with a data storage capacity of 63QK bytes. Software 
included in the package includes CP/M, Z-80 assembler, text editor, 
linking loader, and Microsoft Disk Extended BASIC. All for only $2995- 

The Word Processing Pac will support either a modified Selectric or 
the Diablo/Qume proportional output printers. Either a cassette recor- 
der or a mini-floppy may be used for storage. The Edit mode allows 
full cursor control, Insert/Delete, Scan, Tab, Indent, Hyphen, Macros, 
pagination and titling. The Command mode has standard word processor 
functions, tape merge with memory, line length set, printer option set, 
string search, and display of unused space. File names may be up to 3 
characters. Price $99. 

Development PAC software includes a two pass Z-80 assembler, a 
text editor, and a debugger. The assembler's I/O can be vectored to 
any device driver within the Sorcerer, source and object code can be 
spooled to accomodate programs of infinite length, and absolute assem- 
blies and oseudo operators are supplied. The editor is line oriented, 
allowing forward cursor positioning, line insert and delete, spooling, 
and source code i/o to any device. The debugger can display and/or 
modify any register or RAM location and set breakpoints. Available 
for $99. For more info, contact Exidy directly. 



Now for those rumors I promised. Exidy has not verified these, but 
I believe my sources to be reliable enough to print what follows. 

An extended BASIC more powerful than Radio Shack's Level II will 
be available in the near future on cassette. This will be Microsoft's 
newest BASIC; it will include verbs to manipulate graphics, have long 
variable names, and other niceties. 

The upcoming color graphics board will be bit by bit programmable 
and provide for a 256 by 256 display, expandable to 512 by 512. Note 
that even the low resolution mode has a higher resolution than the 
AFPLE-II's high resolution mode. This should make for some beautiful 
displays. 

PROGRAM EXCHANGE 

No, not yet, but coming soon with your help. Everyone would be 
able to benefit from a cassette software exchange, and I'd like to 
see one going as soon as possible. I still want to publish listings; 
they are generally easier for me to follow than the video. Typing in 
lines is a real pain, however, and hard-to-find mistakes always seem to 
creep in. Microcomputing is supposed to be a fun hobby, not a tedious 
one. To that end, I think a free or inexpensive exchange should be set 
up. Notice please that I said that it should be set up, not that I can 
set it up. School still has first priority over my time, and most of 
ray spare time goes to this newsletter in one way or another. I'd really 
like to hear from anyone else interested in performing this service. 
Who knows? You may even make some money doing it. Please, anybody 
with ideas, let me know what we can do. 

WE ARE NOT ALONE . . . . 

In the user's group buisness, that is. Two other user's groups 
have come to my attention in recent weeks. One is sponsored by the 
Computer Mart of Waltham, Massachusets. You can write them at 
Computer Mart Waltham, 1395 Main Street, Waltham, Mass., 021 5^. I am 
sending a copy of this issue and a letter of introduction to them; I '11 
tell you more about their activities in the next issue. 

The other group to come to my attention is run by Steve Long, 792 
Laurie Ave., Santa Clara, CA, 95050. Steve publishes the Sorcerer 
User's Newsletter 12 times a year; subscriptions run for $10. Sample 
issues are available for the price of an SASE. Steve sent me a copy of 



his May issue which included articles on a printer driver in Basic, some 
digital to analog conversion techniques, and information regarding the 
use and operation of some programs just added to his software library. 
Steve's program already has 69 programs available for $4 apiece. He is 
also a dealer for Exidy products. 

FILES AND YOUR SORCERER 

The Sorcerer's standard has provisions for saving, from within 
a program, numerical arrays using CSAVE* and CLOAD*. These are great 
if you want to write a checkbook handling program, but not much good 
if you want to maintain an address list or phone book on tape. Of 
course, since a computer can do virtually anything, saving and reading 
character records (or arrays) is possible, but it has to be done in a 
somewhat roundabout way. I have managed to fairly successfully read 
and save character strings using the ordinary PRINT and INPUT state- 
ments after changing the input and output vectors from within a pro- 
gram. This is similar to issuing the command SE 0=S from within the 
running program, and then resetting it with SE 0=V, also from the 
running program* Once again, I have used the USR function to accomplish 
this, along with some simple machine language programming. I use 
the following routines to change the output and input with the USR 
function: 

Change output from video to tape- 



0000 11 12 EO 
0003 FD 73 3F 
0006 FD 72 40 
0009 G9 


LD 
LD 
LD 
RET 


DE,0UTAPE 

(IY+0UTADD),E 

(IY+0UTADD+1),D 


Change output fron 


1 tape to 


video- 


0010 11 IB E0 
0013 FD 73 3F 
0016 FD 72 40 
0019 C9 


LD 
LD 
LD 
RET 


DE, VIDEO 

(IY+0UTADD),E 

(IY+0UTADD+1),D 


Change input from 


keyboard 


to tape- 


0020 11 OF E0 
0023 FD 73 41 
0026 FD 72 42 
0029 G9 


LD 
LD 
LD 
RET 


DE,INTAPE 

(IY+INADD),E 

(IY+INADD+l),D 


Change input from 


tape to 


keyboard- 


0030 11 18 E0 
0033 FD 73 41 
OO36 FD 72 42 
0039 G9 


LD 
LD 
LD 
RET 


DE,KEYBRD 

(IY+INADD),E 

(lY+INADD+i),D 



The following program uses the routines to print a character string 

to the tape unit and then read it backs , 

10 INPUT "TYPE A STRING" :A$ 

20 PRINT: PRINT "PUT A CASSETTE IN THE RECORDER, 

30 PRINT "START RECORDING AND ALLOW THE LEADER TO PASS 

40 INPUT "HIT RETURN WHEN READY"?XX$ 

50 POKE 26O,0sPOKE 261,0 

60 XX=USR(0) 

70 PRINT "" 

80 PRINT A$ 

90 POKE 260,16 

100 XX=USR(0) 

110 CLEAR 50:REM NULL ALL VARIABLES 

120 PRINT j PRINT "YOUR STRING HAS BEEN SAVED ON TAPE 

130 PRINT "AND ITS VALUE IN THE VARIABLE A$ DESTROYED 

140 PRINT: PRINT "TO RELOAD THE STRING, REWIND THE TAPE 

150 PRINT "AND PRESS PLAY 

160 INPUT "HIT RETURN WHEN READY";XX$ 

170 POKE 260 f 32sP0KE 26i f 

180 XX=USR(0) 

190 INPUT XX$ 

200 INPUT A$ 

210 A$=RIGHT$(A$,LEN(A$)-1) ; 

220 POKE 260,48 

230 XX=USR(0) 

240 PRINT: PRINT "THE STRING SAVED ON TAPE IS 

250 PRINT A$ 

Line 70 is apparently necessary to initialize the INPUT statements 
so that the actual string is read back in instead of garbage on the tape. 
While in the input section of the program, you will see question marks 
printed on the screen as well as the garbage and the string itself. To 
prevent this from happening in a program, the output can be routed to 
the tape unit as well; this won't interfere with program performance, 
but will keep the question marks and garbage and strings from appearing 
on the screen. 

Line 210 is used to chop off the first character of the INPUT 
string. For some reason unknown to me, the first character of the 
string is a CHR$(10), or a line-feed. I can only assume that this has 
to do with the way the PRINT statement operates. 

I have used this l/o changing technique with some degree of success 
in a small address list handling program. Hopefully the program will 
be perfected in time for the next issue. 



PROGRAMS OF THE MONTH 

RACETRACK 
contributed fay Marvin Weingast . 

From Marvin: "This program is similar to the one published in 
issue #1 except that the machine language subroutine, which is a little 
different from yours, is inside a FOR-NEXT loop. This allows the mo- 
ving spot, in this case a blinking star, to be moving all the time. 
The rate of blinking or the speed of the star can be changed with mi- 
nor programming changes. 

"The object of the game is to maneuver the star around the track, 
or alternatively to erase the track borcers using the star. 

"To start the motion of the star press 2, 4, 6, or 8, which con- 
trol the direction in the same manner as your program. Press 2, 4, 6, 
or 8 to change the direction. To stop press 5»" 

• LUNAR LANDER 
contributed by Bob Bachman 

Lunar Lander is one of the truly classic computer games, second 

only to Startrek in use. Bob's version not only provides the captain 

with the usual velocity, distance, and fuel remaining statistics, but 

it gives him a graphical display of his distance from the lunar surface. 

Give your friends a try at this one, then try to keep them away. 

CRAPS 
contributed by yours truly 

I dug this one out of my high school senior scrapbook. It was a 
project for my first ever computer class. I wrote it three years 
ago, but have since refined it somewhat. 

As with all the programs I present, I like to bring in something 

new if at all possible. This program uses the statement PRINT CHR$(X) 

to control the position of the cursor. The following table gives the 

various values to move the cursor: 

1 - cursor left 
12 - clear screen 
17 - cursor home 
19 - cursor right 
23 - cursor up 
26 - cursor down 

You will probably want to use the controls with PRINT CHR$(X); . 

Note that semi -colon! It is not a typo, and if you leave it off when 

trying to position the cursor (right, left, up, down) you may not get 



the results you want. I'll leave you with this to play around with 
and learn about on your own. 

MORS MISCELLANEOUS 

Otto Borufsen of Sor-Audnedal, Norway, is our first international 
member. Congratulations, Otto. 

I am working on some hardware-software designs for a beeper, a pair 
of joysticks, and a light pen. I will print schematics and full info 
as soon as any of them are finished. Hopefully, this will be in the 
next issue. 

Kilobaud-Microcomputing has published a letter I sent them about 
seeking more members, and it is working. I am receiving several re- 
quests daily, wy personal thanks to KB. 

More material is needed, for printing, as is almost always the case. 
Almost anything is acceptable? book reviews, hardware reviews, soft- 
ware, indeed, anything pertaining to the use of a Sorcerer. Let's 
all help each otherl 

This issue looks like about eight pages as of now. For now, I 
can and will absorb printing and special mailing costs, but if this 
newsletter grows the way I would like it to, I will have to start 
charging for subscriptions eventually. I would appreciate your views 
on this subject, i.e. what you think would be reasonable, should the 
format be changed to fit more on a page, should I take in advertise- 
ments, etc., etc. I'd like to hear from you. 

mmmamm 



The following was contributed by Terxy Calvert: 

CROSS REFERENCE BETWEEN EXIDY SORCERER AND TRS-80: Expansion Interface Jack 



Function 

DATA $ 
1 
2 

3 
h 

5 
6 

7 

ADDR 
1 
2 
3 

5 
6 

7 

8 

9 

1*' 
11 
12 
13 

15. 
Clock 1 

*s 



PRESET 
INT 

HI 

WAIT 
Data 3uss 



BUSS REQUEST 

NI-II 

BUSS ACK 

BUSS DIRECTION 

RAM CONTROL j 



Exldy Pin # 

h$ 

39 
hz 
hi 
kh 
h3 
h6 
29 
32 
31 
3^ 
33 
36 

35 
38 
21 
Zh 

23 

26 

3J* 
27 
28 

10 
13 

1 

2 
16 

h 

5 
6 

7 



RAH DRIV ER 

REFRESH 

RD 

WH 

MUX 

RAS 

CAS 

M REQ 
U.P. 8K 



ROM PRE 
I/O 



I/O REQUEST 
RESET 
HALT 
+5V. 

Giro 

Unused 



9 
19 
17 
20 



15 
1^ 
11 
48 

18 

^5 
22 

^9,50 

^7 



TRS-80 Pin £ Comment 

30 
22 
32 
26 
18 
28 
2k 
2tf 
25 

hi 

3h 
31 
35 
38 
36 
11 

17 

h 

9 

5 
6 

10 
7 



ih 
21 
33 



23 



15 

13 

16 

1 

3 



12 

19 



TRSj INTA K- Interrupt Ack output 

INT = Interrupt input *Maskable 
Processor wait for memory 
Exidy ; 

Exidy; Nonmaskable interrupt 

determines input/output direction 



Exidy; also ROM ENABLE 

Memory Read Strobe 

Memory write strobe 

Multiplexor control for dynamic Rams 

Row address strobe " " " 

Column address strobe M " " 



TRS; CUT= Peripheral write strobe out 
IN = Peripheral read strobe out 

Exidy; Pin 12- RESET ACK 



39 

8,29,37 



Thanks to Marvin Weingast: Part One of a Five Part Series- 
A SHORT TOUR OF BASIC— ERATA 

22 Mar 79 
P.7.U- „ M „««„„, !SsSpf „. lf «. th . _ p< 
p. 13, line 5 Replace: "a=a+1" 

B y : "A is equal to A+1 M „ 

p. 60, line 15 Renlace- *~ 4. • 

piace - to stimulate dice. 

y: --.to simulate dice, 

p. 64, line 1 Add line: 

60 PRINT B$ 

Add section: String Space 
(see below) 



p. 69 



p. 71, lines Replace: ORANGE? 
8 and 9 



B Y* URANGE$ 

Note that ORANGES is not- * i^=i 

contains the reserved word OR? n ™ e ' SlnCe Lt 



p - A "" 1, Add: RIGHT $ 

STEP 
after 



p-c-2 uS.*£EX* H: The functi ° n USR «> 

(L2) String space 

or st rmgs, string variables, 

?he S 9 S S ; f cn^LsIn J?, 5 ° byteS .^»ct.„, , if 

naracters m all your string constants, 

variables, and arrays is .ore then 50/ you will g et an OS error 
—age. tf n fact, you win get the OS message even sooner 
since Standard BAS IC uses sozne of the string space for its 
own purposes.) 
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PART 2 



Example: 

10 FOR X=1 TO 100 
20 PRINT X, 

3 LET A$=A$+"A" 

4 PRINT A$ 
50 NEXT 

This program will produce an nc 

e an os error at X=26. 

To reserve morp <=+->-..•- ~~~ " ™~ 

ve more string space, use *->,«» ~ 

^ ' use tJl e command 

CLEAR <numerical pvnv. Q . • 

-"--n-ct-L ex Pression>. 

When Sorcerer sees i-h-io 

«*« a„ d then re Se ^ S s ^ a ^ fim evaluafces ^ ^^ 

Examples: — ' 

This command sauces th , u 

CLEAR ,00 mUCh Strin9 S ^ ce 

100 bvtes 
CLEAR 999 

999 bytes 
CLEAR X+Y 

the number of spaces 
equal to the value 
of X+Y. 



Produces 



pnuaniFirn listiis 



/ £6^ fi * ^ ACB TAACK *.* 

5 P/ll/fT CLH&iCf 1 ) 

1° F0£ X- ^ To IS 

(0 fz (u ^c-7 to 7 

"° Fotce ~iUS r l<f*y y , 7 <7 

Loo po& y = o to i 

^30 A/&XT X 

loo po/i yc-/o to /o 

3 ' pone -iooo nvyX//77 

Voo Fofl . Xs0 Tq Vo 

*"* Pom -isio + x /n -> 

V ' L0 Po/te ~3>6vo fy //77 

W30 Afe-yr x 

5 OS Tf -ctll$(vt) 



Sid data i, xo s, h ? 3/Z , H/ % S0/ , 0/ 6/0/ 7/ 2o , u . ^ z ^ c 

S-lo p 0At x= I To V 

S*L"L poK€ A, & 

S'Lb /*€YT T 

Qoo Fo/z 5-0 To looo 

7oo if $=% TV*** P'-G^t 

I/O tp % ~ £ TM ^ p._ t 

1^° (F /$ - V 7H€» f> s -I 

7 *° //== 6*1 ™<c~ />- £V 

7 ^ it" &z S T#€" Pc 

? oo ?_;l+P 

VSo Pone 2 VT. 

Sf6 D pot* A ' o To to : /ty(£^r a 

%lo pone z 7 3z 

<t<60 /zo<l ^o ro /oo ; ^^T X 

Toe? ^-y- 5 

(ooo <?Asf) 



10 PRIMTCHR$(12) 

IS n^ul"; LUNAR LANDING SIMULATION - 

50 PRINT:PRINT 

il rr I nI : . I . NPUT ' ,D0 Y0IJ WANT instrijct(Dns":q$:print 

50 IF Q$r"\i" THEN ?70 ^ ' r ^ ,M 

60 PRINT 
70 PRINT 

30 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MWjAL 

?L P norI^° NTR0L 500 FEET AB0VE A G00D LANDING SPOT. YO" HAVE A" 
100^PRINT"DOWMWARD VELOCITY OF 50 FT/SEC. 150 UNITS OF FMEL REM A 
l ni • 

I 10 PRINT 

120 PRINT-HERE ARE THE RULES THAT GOVERN YOUR SPAPF wruTriir." 

IMPRINT-CD AFTER EACH SECOND, TH£ HE?6H?f VE^SciTY' "aND^REM AI 

140 PRINT" FUEL WILL BE REPORTED." 

150 PRINT W (2) AFTER THE REPORT, A '?'W ILL PE TYPED ENTER THF" 

160 PRINT" NUMBER OF UNITS OF FUEL YOU w?SH TO 4urI i SIiJg TH 

IMPRINT" NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YO"R DESC 

180 PRINT" BY I FT/SEC." 

190 tf PRINT"(3) THE MAXIMUM ' THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC 

200 PRINT" 30 UNITS OF FUEL PER SECOND." 

Vol oI\Vt^ A) WHEN YOfJ C0 ^ TA CT THE LUNAR SURFACE, YOUR ENGINE 

220 PRINT" WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A 

230 PRINT" REPORT OF YOU LANDING SPEED AND RFMAItlTNr run " 

240^PRINT"C5) IF YOU RUN OUT OF FUEL^THE ^ SiLlTo'loNGER APR 

250'PRINT" BUT YOUR SECOND-BY -SECOND REPORT WILL CONTINUE MNT 

260 PRINT" YOU CONTACT THE LUNAR SURFACE.": PRINT 

270 INPUT"PUSH RETURN WHEN READY" ;Q$ V 
280 PRINTCHRSC12) 

290 PRINT-BEGINNING LANDING PROCEDURE "• PRUT 

300 PRINT"G D LUCK!!'" 

310 PRINT 

330 PRINt" SEC ^^ SPEED FUEL PL ° T ° F DIST *^" 

340 T = 

350 H = 500 

360 V=50 

370 F=150 

380 PRINT T;TA8(4);H;TAB(12);V;TA^(97i)-F: 

390 PRINT TAB(25);CHR$C15<?) • 

400 PRINT TA«3(H/15+26):CHR$(159)*CHR«n5«) 



410 INPUTS 

420 IF 3<0 THEM 570 

430 IF B>30 THEN 3=30 

440 IF 3>r THEN 3 = F 

4-50 Vl=V-B+5 

460 F = F-B 

470 H=H-.5*(V+Vl ) 

480 IF H< = THEN 590 

490 T=T+1 

500 V = VI 

510 IF F>0 THEN 380 

520 IF B = THEN 540 

530 PRINT"****OUT OF FUEL****" 

540 PRINT T;TAB(4) ;H;TAB(12):V;TAB(20) :F: 

550 PRINT TA3(25);CHR$(168) ; 

560 PRINT TABCH/15+26) :CHR$ ( 1 59 ) :CHR$ r 158) 

570 8=0 

580 GOTO 450 

590 PRINT"****CONTACT****" 

600 H=H+.5*(V+V1 ) 

610 IF B=5 THEN 640 

620 D=(-V+SQR(V*V+H*(10-2*B) ))/(5-B) 

630 GOTO 650 

640 D=H/V 

650 Vl=V+(5-B)*0 

660 PRINT"TOUCHOOWN AT" ;T+D ; "SECONDS. " 

670 PRINT"LANDING VELOCITY= " : V 1 :"FEET/SEC . " 

S80 PRINTF:"UNITS OF FUEL REMAINING." 

690 IF V1<>0 THEN 730 

700 PRINT"CONGRATULATIONS! A PERFECT LANDING!" 

710 PRINT"YOUR LICENSE WILL BE RENEWED LATER" 

720 GOTO 760 

730 IF ABS(Vi)<2.5 THEN 840 

740 PRINT"******SORRY, BUT YOU BLE'<' IT!!!!!" 

750 PRINT"CONDOLENCES TO YOUR NEXT OF v IN " ' 

760 PRINT:PRINT:PRINT 

770 PRINT"ANOTHER MISSION? (Y/N) 

780 INPUT Z$ 

790 IF ZS="N" THEN 810 

800 GOTO 280 

810 PRINT"CONTROL CENTRAL, OUT, SO LONG" 

820 PRINT:PRINT:PRINT:PRINT 

830 GOTO 870 

840 PRINT"TOUCH DOWN WAS A LITTLE ROMGH, 3IJT YOU SURVIVED'' 

350 PRINT:PRIMT:PRINT 

860 GOTO 770 

870 END 

READY 



10 REM. • CRAPS' BY DAVE BRISTOR 

20 REM WRITTEN SPRING 1976 

30 REM REVISED SUMMER 1979 

40 REM INITIALIZE RANDOM NUMBER GENERATOR 

50 D=RND(-RND(5)) 

60 PRINT CHR$(12) 

70 PRINT:PRINT" ***CRAPS*** 

80 PRINT:PRINT"DO YOU NEED INSTRUCTIONS " ; 

90 INPUT A$:IF LEFT$CA$,1)<>"N" THEN GOSUB630 :GOTO110 

100 PRINT:PRINT"OKAY THEN, I'M GAME. 

1 10 C=l :M = 

120 REM INPUT LOOP TO LINE 190 

130 PRINT "TYPE ROLL " ; 

140 INPUT R$:IF R$="ROLL" THEN M=0:GOTO210 

150 M = M+1 

160 ON M GOTO170 , 180,190 

170 PRINT:PRINT"PLEASE ROLL "::GOTO140 

180 PRINT5PRINT"I SAID ROLL!!! ";:GOTO140 

190 PRINT:PRINT"OKAY THEN, I QUIT !!!!!! " : GOTO790 

200 REM ROLL DICE 

210 X=INT(RND(1)*6+1) 

220 Y=INT(RND(1 )*6+l ) 

230 S = X+Y 

240 IF C=l THEN FST = S 

250 GOSUB340 

260 REM CHECK FOR WIN 

270 IF C=l AND (S=7 OR S=il) THEN400 

280 IF C>1 AND S=FST THEN400 

290 REM CHECK FOR LOSE 

300 IF C=l AND (S = 2 OR S = 3 OR S=1J>) THEN47F 

310 IF C>1 AND S=7 THEN470 

320 C = C+1 

330 GOTO 130 

340 REM PRINT ROLL SUBROUTINE 

350 IF S=8 OR S= 1 1 THEN GOTO380 

370 GOtS390 RINT " THAT,S A " :X? " AMD A " ;Y? "> WHICH MAvES FOR a«.c 

390 RETURN PRINT " L0 ° KS UKE A " ;X; "^ ,D A":Y;"-A TOTAL OF":S 

400 REM ***i./in*** 

410 PRINT:PRINT" YOU WON"" 

?f2 J£ n <5 I HEN p RI":PRINT"LUCvY FINGERS, DUDE" : GOTO450 
430 IF C<6 THEN PRINT :PRINT"NOT BAD FOR AN AMATEUR" • GOTO450 
440 PRINT:PRINT"WELL FINALLY! AT LEAST YOU WON." : g6?^450 
450 PRIMT:PRINT"YOU HIT IT LUCKY ON ROL! NUMBER" -C 
460 GOTO530 ' ' ' 



f w 



470 REM **LOST*** 

480 PRINTrPRINT" AHA-YOU LOSE! 

490 IF C<3 THEN PRINT :PRINT"TH AT DIDN'T TAKE LONG, DID IT ?":GOT 

0520 

500 IF C<6 THEN PRINTtPR INT"KEEP UP THE GOOD WORv, PAL" J GOTO520 

510 PRINT:PRINT"DOWN THE DRAIN AFTER ALL THAT ! " : GOTO520 

520 PRINTtPR INT"Y0U BLEW IT ON ROLL":C 

530 REM ***ROLL NUMBER*** 

540 IF C<3 THEN PRINT: PRINT"TRY AGAIN, HOTSHOT ";:GOTO570 

550 IF C<6 THEN PRINT :PRINT"WHY NOT GIVE IT ANOTHER TRY "::G0T05 

70 

560 PRINT:PRINT"ONCE MORE ";:GOTO570 

570 INPUT AS 

530 IF LEFT$(A$, 1)<>"N" THEN 110 

590 PRINT:PRINT"OKAY, THANKS FOR PLAYING. BYE! 

600 PRINT 

610 END 

620 REM INSTRUCTIONS 

630 PRINT CHRSC12) 

640 PRINT 

650 PRINT" CRAPS IS A DICE GAME. YOU WIN OR LOSE DEPENDING 

660 PRINT"ON WHAT YOU ROLL. 

670 PRINT 

6S0 PRINT" TO WIN, JUST ROLL A 7 OR AN 11 ON YOUR FIRST 

690 PRINT"ROLL (HA!), OR ROLL YOUR FIRST NUMBER ON ANY 

700 PRINT"SUCCEEDING ROLL. 

710 PRINT 

720 PRINT" TO LOSE, MAKE YOUR FIRST ROLL A 2, A 3, OR A 12. 

730 PRINT"OR, YOU CAN LOSE BY ROLLING A 7 ANY TIME AFTER 

740 PRINT"YOUR FIRST ROLL. NOW ISN'T THAT EASY 7 

750 PRINT 

760 PRINT" GET READY NOW, 'CAUSE HERE WE GO... 

770 PRINT 

730 RETURN 

790 END 

READY 



